ＴＬ／１・ＭＺ ――――――――――――――――――――――――――――――――――――――― アスキー　１９８１年　３月号掲載 マシン語　０１２００Ｈ−０２ＡＦＦＨ　Ｓ：０１２００Ｈ 起動方法 モニタからロード コールド・スタート　０１２００Ｈ ホット　・スタート　０１２０２Ｈ ――――――――――――――――――――――――――――――――――――――― ＴＬ／１・ＭＺコンパイラを発表します。 最少の20Ｋシステムでも御利用出来る様に考慮されております。 1200Ｈがコールドエントリーで、 1202Ｈがウォームエントリーです。 コールドエントリでは、実装されているＲＡＭ容量チェックし、 テキスト開始番地を5000Ｈにして、テキストをクリアします。 これらの一連の作業が終ると 「*READY.」 と表示し入力待ちとなります。 このＴＬ／１・ＭＺは満足なモニタを持たないＭＺの為に、 モニタ、エディタ、コンパイラを全て内蔵しています。 以下一覧表で述べ切れなかった事項について簡単に解説します。 コマンド一覧と共にご覧ください。 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 　　　　　　　モニタについて Ｗコマンドにおける実行開始番地とは ＲＯＭ内のモニタの「LOAD」コマンドで 読み込んだ際のオートスタートの番地であり、 オートスタートさせたくない場合は省略して下さい。 もちろんこのＴＬ／１・ＭＺ自身をこのコマンドでセ−ブして、 オートスタートテープを作ることも可能です。 またＲＯＭ内のモニタへ飛びたい場合は単にＧ[ＣＲ]として下さい。 単なるデータのロードはこの状態で実行し、 GOTO$1202 でウォームエントリすれば良いのです。 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 　　　　　　エディタについて このエディタでは、テキストエンドが ＲＡＭエンドを超えたのかチェックを行なっていません。 これは32Ｋ以上のシステムでは問題とはなりませんが、 20Ｋシステムでは、 Ｑコマンドで確かめながらエディットして下さい。 Ｂコマンドも有効に活用して テキストとオブジェクトをうまく配分して下さい。 またＲＡＭエンド付近にはスタックがありますので 充分余裕を持たせて下さい。 Ａ、Ｒコマンドでは 行番号のレンジチェックを行っていませんので、 あまり特種な使い方はしない様にお願いします。 Ｂコマンドの説明中「最終番地」とは 簡単に言うと「00」と「負の数」が 連続して現われるシーケンスを言います（実際はもっと複雑）。 通常のテキストでは このシーケンスはテキストエンド以外には存在しません。 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 　　　　　コンパイラについて Ｘ、Ｗコマンドは 必ずコンパイルが正しく終了してから行って下さい。 オブジェクトは実行を終了すると、 ＴＬ／１システムが存在する（と思われる）場合は ウォームエントリへ、 そうでない場合はＲＯＭ内のモニタへジャンプします。 ＷコマンドはモニタのＷコマンドと似ていますが、 書式が違いますので注意して下さい。 Ｗコマンド作成されテープは ＲＯＭ内のモニタの「LOAD」コマンドで読み込まれ、 即実行されます。 オブジェクトはシステムがなくても動きますが、 注意して欲しいのは、 オブジェクト実行時のスタックが、 コンパイル時のＲＡＭエンドに設定されるという事です。 つまり48Ｋのシステムでコンパイルされたオブジェクトは 32Ｋシステムでは動かないのです。（この逆は可能） この場合は32Ｋシステムでコンパイルしなおすか、 2801番地から２Ｂｙｔｅを 適当な（小さな）値にモニタを使って書き換えるかして下さい。 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 　　　　　　入出力について 画面に対する出力は、ブランキングチェックをはずしてあります。 この為画面に多少ノイズが出ますが、 表示速度の差を考えれば充分納得がゆくでしょう。 ＭＺの特長の一つでもある、 カーソルコントロールキャラクタも使用可能です。 ＴＬ／１・ＭＺにはこのほかに、 ＣＵＲＳＯＲ（Ｘ，Ｙ）という手続きも組み込まれている為、 双方の特長を生かしたプログラミングが出来ます。 カーソルコントロールキャラクタは「”」の内で主に使われますが、 「’」で囲んで文字定数としても使えます。 これは、ＩＮＳＥＲＴを１回押してから カーソル移動キーを押せば入力されます。 例えば次の二つの文は同じ働きをします。 　◎ＷＲＩＴＥ（０：”[C]”） 　◎ＷＲＩＴＥ（０：ＡＳＣＩＩ（”[C]”）） ・―――――――――――――――――――――――――――――――――――――・ ｜　　　　　　　　　ＴＬ／１　ＭＺ　エラーメッセージ　　　　　　　　　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜TOOMANY IDENTIFILES ｜ＩＤテーブルがオーバーフローした。　　　　　　　　　｜ ｜――――――――――＋――――――――――――――――――――――――――｜ ｜TOOMANY VARIABLES ｜変数、配列の総数が多すぎる。　　　　　　　　　　　　｜ ｜――――――――――＋――――――――――――――――――――――――――｜ ｜OBJECT TOO LONG ｜オブジェクトプログラムが長くなりすぎた。　　　　　　｜ ｜――――――――――＋――――――――――――――――――――――――――｜ ｜DIV BY ZERO ｜０で割ろうとした。　　　　　　　　　　　　　　　　　｜ ｜――――――――――＋――――――――――――――――――――――――――｜ ｜STRING NOT CLOSED ｜ストリングを”でとじる前にファイルエンドがでた。　　｜ ・―――――――――――――――――――――――――――――――――――――・ ・―――――――――――――――――――――――――――――――――――――・ ｜　　　　　　　　　ＴＬ／１　ＭＺ　ライブラリ機能　　　　　　　　　　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜　　　　　　　　　　　　　　　　　文　　　　　　　　　　　　　　　　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜SET(X,Y)　 座標(X,Y)のｸﾞﾗﾌｨｯｸｴﾚﾒﾝﾄ を点灯する。(０≦Ｘ≦79、０≦Ｙ≦49)｜ ｜RESET(X,Y)　 座標(X,Y)のｸﾞﾗﾌｨｯｸｴﾚﾒﾝﾄ を消灯する。(　　　　　〃　　　　　)｜ ｜INVERSE(X,Y) 座標(X,Y)のｸﾞﾗﾌｨｯｸｴﾚﾒﾝﾄの状態を反転する。（　　　　〃　　　)｜ ｜CURSOR(X,Y) 　ｶｰｿﾙ を(X,Y)の位置に移動する。(０≦Ｘ≦39、０≦Ｙ≦24)　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜　　　　　　　　　　　　関　　　　　　　　　数　　　　　　　　　　　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜POINT(X,Y)　座標(X,Y)のｸﾞﾗﾌｨｯｸｴﾚﾒﾝﾄ の状態を調べ点灯していればＴＲＵＥ　　｜ ｜　　　　　　消灯していればＦＡＬＳＥを帰す。(０≦Ｘ≦79、０≦Ｙ≦49)　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜　　　　　　　　　　　　そ　　　　の　　　　他　　　　　　　　　　　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜WRITE(l:出力項目リスト) 　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜READ、RDHXの入力時で１文字消去にＤＥＬキーが使える　　　　　　　　　　　　｜ ・―――――――――――――――――――――――――――――――――――――・ 　ＴＬ／１　ＭＺ　メモリマップ ・――――――――――――――――――――――・ ｜００００｜　　　　　　　　　　　　　　　　　｜ ｜　　　　｜　　　　　　　ＲＯＭ　　　　　　　｜ ｜　　　　｜　　　　　　　　　　　　　　　　　｜ ｜１０００｜―――――――――――――――――｜ ｜　　　　｜　　　ＷＯＲＫ　　　ＡＲＥＡ　　　｜ ｜１２００｜―――――――――――――――――｜ ｜　　　　｜　　　　　ＭＯＮＩＴＯＲ　　　　　｜ ｜　　　　｜　　　　　ＥＤＩＴＯＲ　　　　　　｜ ｜　　　　｜　　　　　ＣＯＭＰＬＥＩＲ　　　　｜ ｜２８００｜―――――――――――――――――｜ ｜　　　　｜　　　　　ＲＵＮＴＩＭＥ　　　　　｜ ｜２Ａ８Ｃ｜―――――――――――――――――｜ ｜　　　　｜　　　　　　　　　　　　　　　　　｜ ｜　　　　｜　　　　　ＯＢＪＥＣＴ　　　　　　｜ ｜　　　　｜　　　　　　　　　　　　　　　　　｜ ｜　　　　｜……………………………………………｜ ｜　　　　｜　　　　　　　　　　　　　　　　　｜ ｜　　　　｜　　　　　ＳＯＵＲＣＥ　　　　　　｜ ｜　　　　｜　　　　　　　　　　　　　　　　　｜ ｜　　　　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ｜　　　　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ｜　　　　｜　　　1st 　　　　　　　　　　　　｜ ｜　　　　｜　　　2nd 　　　　　　　　　　　　｜ ｜RAM END ｜　　　Proc adrs.tablr 　　　　　　｜ ・――――――――――――――――――――――・ ・―――――――――――――――――――――――――――――――――――――・ ｜　　　　　　　　　　　　ＭＯＮＩＴＯＲ　ＣＯＭＭＡＮＤ　　　　　　　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜Ma[,l,b]　｜ａ番地からｂ番地まで表示する。　　　　　　　　　　　　　　　　｜ ｜　　　　　｜Ｍａ[CR]とするとａ番地から16byte表示、　　　　　　　　　　　　｜ ｜　　　　　｜[CR]とするとａ番地から最後まで(実際は０番地まで)表示する。　　｜ ｜　　　　　｜表示は、SHIFT−BREAKで中断され、SPACE で一時停止する。　　　　｜ ｜　　　　　｜この状態からは３種類の抜け出し方がある。　　　　　　　　　　　｜ ｜　　　　　｜１つはSHIFT−BREAKによる中断、　　　　　　　　　　　　　　　　｜ ｜　　　　　｜次にSPACE を一瞬たたく事による表示再開、　　　　　　　　　　　｜ ｜　　　　　｜最後はSPACE を長く押し続ける事による一行づつの表示である。　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜:a b c d…｜ａ番地から順にｂ、ｃ………を書き込む。　　　　　　　　　　　　｜ ｜　　　　　｜データの数はラインバッファの長さが許す限り書ける。　　　　　　｜ ｜　　　　　｜このコマンドを実行すると　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　｜次に書き込まれるべき番地を表示して入力待ちとなる　　　　　　　｜ ｜　　　　　｜これによって連続した番地に書き込むこが容易となる　　　　　　　｜ ｜　　　　　｜Ｍコマンドによる出力はスクリーンエディトに適する様な　　　　　｜ ｜　　　　　｜形式になっているので、充分活用されたい。　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜Ga　　　　｜ａ番地からのプログラムをサブルーチンコールする。　　　　　　　｜ ｜　　　　　｜　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜Da　　　　｜ａを10進変換し表示する　　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　｜　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜Hn　　　　｜ｎを16進変換し表示する　　　　　　　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜Wf,a,b[,c]｜ａ番地からｂ番地までｃ番地を実行開始番地として、　　　　　　　｜ ｜　　　　　｜ｆというファイルネームを付けてテープにセーブする。　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜Ia　　　　｜ａ番の入力ポートの値を表示する。　　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜Oa,b,c　　｜ａ番の出入力ポートにｂを書き込む。　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜Ta,b,c　　｜ａ番地からｂ番地までｃ番地から始まる番地に移す。　　　　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜　　　　　　　　　　　　ＥＤＩＴＯＲ　ＣＯＭＭＡＮＤ　　　　　　　　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜0 　　　　｜テキストを表示する。　表示、中断はＭコマンドと同じ。　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜l/　　　　｜ｌ番からのテキストを表示する。　表示、中断はＭコマンドと同じ。｜ ｜l 　　　　｜　テキスト中のｌ番の文を削除する。　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜ls　　　　｜ｓにｌという文番号をつけ、テキストエリアに格納する。　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜A[l][,k]　｜ｌ番からｋの増分で自動行番号機能を起動する。　　　　　　　　　｜ ｜　　　　　｜SHIFT−BREAKで抜ける。　　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　｜ｌ，ｋを省略するとそれぞれ1000，10になる。　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜R[l][,k]　｜現在のテキストの行番号をｌ番を始めとするｋの増分のものに換える｜ ｜　　　　　｜パラメータの省略はＡコマンドと同じ。　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜NEW 　　　｜テキストをクリアする。　　　　　　　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜Q 　　　　｜ﾃｷｽﾄの開始番地、終了番地、ＲＡＭの最終番地をこの順に表示する。｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜B[a]　　　｜テキストの開始番地をａとして、最終番地を正しくセットする。　　｜ ｜　　　　　｜ａを省略すると開始番地を変更せずに最終番地をセットする。　　　｜ ｜　　　　　｜（ＧＡＭＥの「＝」コマンドと同じ。）　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜Fs　　　　｜テキスト中でｓを含む行を表示する。　　　　　　　　　　　　　　｜ ｜　　　　　｜一行に２つ以上含む場合はあるだけ表示する。　　　　　　　　　　｜ ｜　　　　　｜中断、停止はＭコマンドと同じ。　　　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜Sf　　　　｜テキストをｆのファイル名でテープにセーブする。　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜L[f]　　　｜テープからｆのファイル名のテキストを　　　　　　　　　　　　　｜ ｜　　　　　｜現在のテキスト最終番地からロード（アペンド）する　　　　　　　｜ ｜　　　　　｜アペンドしたくないときは、NEW コマンドでテキストを空にしておく｜ ｜　　　　　｜ｆを省略すると最初にみつけたファイルを読み込む。　　　　　　　｜ ｜　　　　　｜アペンド終了後に最終番地をセットし　　　　　　　　　　　　　　｜ ｜　　　　　｜1000から10のきざみでリナンバーする　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜C 　　　　｜テキストをコンパイルする。　　　　　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜X 　　　　｜オブジェクトを実行する。　　　　　　　　　　　　　　　　　　　｜ ｜―――――＋―――――――――――――――――――――――――――――――｜ ｜W[f]　　　｜オブジェクトをｆのファイルネームでテープにセーブする。　　　　｜ ｜―――――――――――――――――――――――――――――――――――――｜ ｜（注）「[」、「]」で囲んだパラメーターは省略が可。　　　　　　　　　　　　｜ ｜　　　n、mは０〜 65535の10進数、　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　l、kは１〜 32767の10進数、　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　a、b、c は０からFFFFの16進数、　　　　　　　　　　　　　　　　　　　｜ ｜　　　s は文字列、　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　fは「,」を含まない最大16文字までの文字列を表す。　　　　　　　　　　｜ ｜　　　数は有効桁全てを打ち込む必要は無く、あふれは無視される。　　　　　　｜ ・―――――――――――――――――――――――――――――――――――――・ ・――――――――――――――――――――――――・ ｜ＴＬ／１で書いた汎用ダンプリストプログラム　　　｜ ｜――――――――――――――――――――――――｜ ｜ VAR ADRSH,ADRSL,ENDH,STRTH,DATA,SUM,I,J ｜ ｜ BEGIN ｜ ｜ WRITE(0:"START ADDRESS HIGH BYTE ") ｜ ｜ STRTH:=RDHEX(0) ｜ ｜ WRITE(0:CRLF) ｜ ｜ WRITE(0:"END ADDRESS HIGH BYTE ") ｜ ｜ ENDH:=RDHEX(0) ｜ ｜ WRITE(0:CRLF) ｜ ｜ FOR ADRSH:=STRTH TO ENDH DO BEGIN ｜ ｜ ADRSL:=0 ｜ ｜ FOR I:=0 TO 31 DO BEGIN ｜ ｜ WRITE(0:SPACE(2),HEX(ADRSH),HEX(ADRSL)) ｜ ｜ SUM:=ADRSH+ADRSL ｜ ｜ FOR J:=0 TO 7 DO BEGIN ｜ ｜ DATA:=MEM(ADRSH,ADRSL) ｜ ｜ SUM:=SUM+DATA ｜ ｜ WRITE(0:SPACE(1),HEX(DATA)) ｜ ｜ ADRSL:=ADRSL+1 ｜ ｜ END ｜ ｜ WRITE(0:SPACE(2),HEX(SUM),CRLF) ｜ ｜ END ｜ ｜ END ｜ ｜ END ｜ ・――――――――――――――――――――――――・